Sub fraCycle_DragDrop (Source As Control, X As Single, Y As Single)
'Stop
End Sub
Sub menuHelp_Click ()
Dim LF$, Msg$
LF$ = Chr$(13) + Chr$(10)
Msg$ = Msg$ + "Click on -Either- Graphic or ""MouseChange"" to RUN the Program." + LF$ + LF$
Msg$ = Msg$ + "Change the Option Box settings to test each state. The ""Animated"" Check Box may give incorrect Frame numbers... but NOT all the time...." + LF$ + LF$
Msg$ = Msg$ + "John De Palma on CompuServe 76076,571"